PC Home 109/PC Home 109.iso/data1.cab/Program_Files/be001.dxr/00012.ls

Text File | 2001-03-02 | 7.2 KB | 199 lines

on squig5I
  set direction to random(8)
  startTimer()
  repeat while the timer < 30
    if direction = 1 then
      set nom to the name of member the memberNum of sprite 7
      if (nom = "1nwI") or "2nwI" or "1eI" or "2eI" or "1sI" or "2sI" or "1wI" or "2wI" or "1neI" or "2neI" or "1seI" or "2seI" or "1swI" or "2swI" then
        set nom to "1nI"
        set the memberNum of sprite 7 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locV of sprite 7 to the locV of sprite 7 - 1
        if nom = "1nI" then
          set nom to "2nI"
        else
          if nom = "2nI" then
            set nom to "1nI"
          end if
        end if
        set the memberNum of sprite 7 to the number of member nom
        updateStage()
        if the locV of sprite 7 <= -27 then
          set the locV of sprite 7 to 507
        end if
      end repeat
    end if
    if direction = 3 then
      set nom to the name of member the memberNum of sprite 7
      if (nom = "1nwI") or "2nwI" or "1nI" or "2nI" or "1sI" or "2sI" or "1wI" or "2wI" or "1neI" or "2neI" or "1seI" or "2seI" or "1swI" or "2swI" then
        set nom to "1eI"
        set the memberNum of sprite 7 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locH of sprite 7 to the locH of sprite 7 + 1
        if nom = "1eI" then
          set nom to "2eI"
        else
          if nom = "2eI" then
            set nom to "1eI"
          end if
        end if
        set the memberNum of sprite 7 to the number of member nom
        updateStage()
        if the locH of sprite 7 >= 667 then
          set the locH of sprite 7 to -27
        end if
      end repeat
    end if
    if direction = 5 then
      set nom to the name of member the memberNum of sprite 7
      if (nom = "1nwI") or "2nwI" or "1nI" or "2nI" or "1eI" or "2eI" or "1wI" or "2wI" or "1neI" or "2neI" or "1seI" or "2seI" or "1swI" or "2swI" then
        set nom to "1sI"
        set the memberNum of sprite 7 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locV of sprite 7 to the locV of sprite 7 + 1
        if nom = "1sI" then
          set nom to "2sI"
        else
          if nom = "2sI" then
            set nom to "1sI"
          end if
        end if
        set the memberNum of sprite 7 to the number of member nom
        updateStage()
        if the locV of sprite 7 >= 507 then
          set the locV of sprite 7 to -27
        end if
      end repeat
    end if
    if direction = 7 then
      set nom to the name of member the memberNum of sprite 7
      if (nom = "1nwI") or "2nwI" or "1nI" or "2nI" or "1eI" or "2eI" or "1sI" or "2sI" or "1neI" or "2neI" or "1seI" or "2seI" or "1swI" or "2swI" then
        set nom to "1wI"
        set the memberNum of sprite 7 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locH of sprite 7 to the locH of sprite 7 - 1
        if nom = "1wI" then
          set nom to "2wI"
        else
          if nom = "2wI" then
            set nom to "1wI"
          end if
        end if
        set the memberNum of sprite 7 to the number of member nom
        updateStage()
        if the locH of sprite 7 <= -27 then
          set the locH of sprite 7 to 667
        end if
      end repeat
    end if
    if direction = 2 then
      set nom to the name of member the memberNum of sprite 7
      if (nom = "1nwI") or "2nwI" or "1nI" or "2nI" or "1eI" or "2eI" or "1sI" or "2sI" or "1wI" or "2wI" or "1seI" or "2seI" or "1swI" or "2swI" then
        set nom to "1neI"
        set the memberNum of sprite 7 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locV of sprite 7 to the locV of sprite 7 - 1
        set the locH of sprite 7 to the locH of sprite 7 + 1
        if nom = "1neI" then
          set nom to "2neI"
        else
          if nom = "2neI" then
            set nom to "1neI"
          end if
        end if
        set the memberNum of sprite 7 to the number of member nom
        updateStage()
        if the locH of sprite 7 >= 667 then
          set the locH of sprite 7 to -27
        end if
        if the locV of sprite 7 <= -27 then
          set the locV of sprite 7 to 507
        end if
      end repeat
    end if
    if direction = 4 then
      set nom to the name of member the memberNum of sprite 7
      if (nom = "1nwI") or "2nwI" or "1nI" or "2nI" or "1eI" or "2eI" or "1sI" or "2sI" or "1wI" or "2wI" or "1neI" or "2neI" or "1swI" or "2swI" then
        set nom to "1seI"
        set the memberNum of sprite 7 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locV of sprite 7 to the locV of sprite 7 + 1
        set the locH of sprite 7 to the locH of sprite 7 + 1
        if nom = "1seI" then
          set nom to "2seI"
        else
          if nom = "2seI" then
            set nom to "1seI"
          end if
        end if
        set the memberNum of sprite 7 to the number of member nom
        updateStage()
        if the locH of sprite 7 >= 667 then
          set the locH of sprite 7 to -27
        end if
        if the locV of sprite 7 >= 507 then
          set the locV of sprite 7 to -27
        end if
      end repeat
    end if
    if direction = 6 then
      set nom to the name of member the memberNum of sprite 7
      if (nom = "1nwI") or "2nwI" or "1nI" or "2nI" or "1eI" or "2eI" or "1sI" or "2sI" or "1wI" or "2wI" or "1neI" or "2neI" or "1seI" or "2seI" then
        set nom to "1swI"
        set the memberNum of sprite 7 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locV of sprite 7 to the locV of sprite 7 + 1
        set the locH of sprite 7 to the locH of sprite 7 - 1
        if nom = "1swI" then
          set nom to "2swI"
        else
          if nom = "2swI" then
            set nom to "1swI"
          end if
        end if
        set the memberNum of sprite 7 to the number of member nom
        updateStage()
        if the locH of sprite 7 <= -27 then
          set the locH of sprite 7 to 667
        end if
        if the locV of sprite 7 >= 507 then
          set the locV of sprite 7 to -27
        end if
      end repeat
    end if
    if direction = 8 then
      set nom to the name of member the memberNum of sprite 7
      if (nom = "1swI") or "2swI" or "1nI" or "2nI" or "1eI" or "2eI" or "1sI" or "2sI" or "1wI" or "2wI" or "1neI" or "2neI" or "1seI" or "2seI" then
        set nom to "1nwI"
        set the memberNum of sprite 7 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locV of sprite 7 to the locV of sprite 7 - 1
        set the locH of sprite 7 to the locH of sprite 7 - 1
        if nom = "1nwI" then
          set nom to "2nwI"
        else
          if nom = "2nwI" then
            set nom to "1nwI"
          end if
        end if
        set the memberNum of sprite 7 to the number of member nom
        updateStage()
        if the locH of sprite 7 <= -27 then
          set the locH of sprite 7 to 667
        end if
        if the locV of sprite 7 <= -27 then
          set the locV of sprite 7 to 507
        end if
      end repeat
    end if
  end repeat
end